这是我表属性 DataColChanged 里面的代码 是代码的问题吗
'自动增加到另外表格的序号
Select Case e.DataCol.Name
Case "序号"
If e.DataRow.IsNull("序号") = False Then '如果已经输入订单编号
If e.DataRow.GetChildRows("PersonalInformation").Count = 0 Then '而且无订单明细
Dim dr As DataRow = DataTables("PersonalInformation").AddNew()
dr("序号") = e.DataRow("序号")
End If
End If
End Select
'窗口自动输入
Select Case e.DataCol.Name
Case "Information_Name"
Dim fdr As DataRow = DataTables("序号").Find("Informati")
If fdr Is Nothing Then
fdr = e.DataTable.Find("Informati")
End If
If fdr IsNot Nothing Then
e.DataRow("Information_Address") = fdr("Information_Address")
e.DataRow("Information_postcode") = fdr("Information_postcode")
e.DataRow("Information_Phone") = fdr("Information_Phone")
End If
[此贴子已经被作者于2014-8-14 12:01:41编辑过]
加好友 
发短信
Post By：2014/8/14 12:00:00 [显示全部帖子]
