strSql="select a.col1,b.col2 form tablea as a inner join tableb as b on b.id=a.id where a.id=AID"
SqlConnection objConn=new SqlConnection(strConn);
objConn.Open();
SqlDataReader objReader=new SqlDataReader(strSql,strConn);
DataTable objDt;
objReader.Fill(objDt);
objConn.Close();
可以直接通过sql查询语句在你需要的那两个表中提取数据,可以分别提取数据,整理你的DataTable再进行数据榜定
1)Sql="select a.*,b.WebSortUpName,c.WebSortDownName from "&UserInfo_&" a ,"&WebSortUp_&" b, "&WebSortDown_&" c where 1=1 And b.WebSortUpId=a.UserProvince And c.WebSortDownId=a.UserCity and LoginClass="&LoginClass&" "&SqlItem&" order By UserId Desc"
2)
Dim MesTable As DataTable = BfDS.Tables("Message")
MesTable.Columns.Add("ImageUrl", Type.GetType("System.String"))
MesTable.Columns.Add("ImageToolTip", Type.GetType("System.String"))
MesTable.Columns.Add("FileLength", Type.GetType("System.String"))
Dim i As Integer
For i = 0 To BfDS.Tables("Message").Rows.Count - 1
If BfDS.Tables("Message").Rows(i).Item("Flag").ToString = "0" Then
BfDS.Tables("Message").Rows(i).Item("ImageUrl") = "image/ReadFalse.gif"
BfDS.Tables("Message").Rows(i).Item("ImageToolTip") = "未读"
Else
BfDS.Tables("Message").Rows(i).Item("ImageUrl") = "image/ReadTrue.gif"
BfDS.Tables("Message").Rows(i).Item("ImageToolTip") = "已读"
End If
Next
BfDS.Tables("Message").AcceptChanges()