SQLtable跨表查询窗体AfterLoad代码
DataTables("合同_合同").DataCols("申请编号").RaiseDataColChanged()
表DataColChanged代码
Select Case e.DataCol.Name
Case "申请编号"
Dim nms() As String = {"商品ID","订单数量","申购人","说明","订单明细号"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("合同_包材申请表").Find("[申请编号] = '" & e.NewValue & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End Select
For Each dt As DataTable In DataTables
dt.Save()
千条数据打开窗体就极慢,后来发现删除自动保存代码
For Each dt As DataTable In DataTables
dt.Save()
速度至少可以提升一倍以上,只是不能修改即保存的功能,请教老师有什么更好方法