按组别填充的代码如下：
DataTables("表B").DataRows.Clear '清除表B
Dim zb As String() = {"1","2","3","4","5"}
For j As Integer = 0 To zb.length -1
Dim iList As List(of DataRow)= DataTables("表A").Select("组别 = '" & zb(j) & "'")
If IList IsNot Nothing Then
For i As Integer = 0 To iList.Count - 1
Dim dr As DataRow
If DataTables("表B").DataRows.Count > i Then
dr = DataTables("表B").DataRows(i)
Else
dr = DataTables("表B").AddNew
End If
dr("组别_" & zb(j)) = IList(i)("姓名")
Next
End If
Next
MainTable= Tables("表B")
Tables("表B").AutoSizeCols()
DataTables("表B").Save()
问题1、如果用GetUniqueValues来获取“表A”组别列的不重复值，以上代码应如何修改？
问题2、填充表C，在填充表B的基础上增加一个条件，将姓名填充在对应组别和工位的单元格，代码应该如何写，请各位老师指教，谢谢！！
[此贴子已经被作者于2013-7-31 14:50:43编辑过]
加好友 
发短信
Post By：2013/7/31 13:27:00 [显示全部帖子]
