Dim cmd As New SQLCommand
cmd.C
Dim definename As String
cmd.CommandText = "select cdefinename from defineset where ctype='来料加工入库单子表'"
Dim dt As DataTable = cmd.ExecuteReader()
For Each jgyqdr As DataRow In dt.DataRows
definename=jgyqdr("cdefinename")
MessageBox.Show(definename)
Tables("RdRecord.RdRecords").DataTable.DataCols.Delete(definename)
Tables("RdRecord.RdRecords").DataTable.DataCols.Add(definename,Gettype(String))
Next
执行时definename是有值的“客户QQ” ,“质检人员”
但是打开窗体却没有增加上 客户QQ 和质检人员 这两列
此主题相关图片如下:qq截图20140926100427.png