Dim dr As DataRow = DataTables("zzscjjmxb").SQLFind("[工序名称] = '裁面布' And [_Locked] = 1","开工日期 desc")
If dr Is Nothing Then
Dim Filter As String
Filter = "主表主键 = " & dr("主表主键") & " and 工序名称 = '" & User.Group & "' and (默认操作工 = '" & User.Name & "' or 默认操作工 Is Null) and [_Locked] = 0 "
DataTables("zzscjjmxb").LoadFilter = Filter
DataTables("zzscjjmxb").LoadOrder = "开工日期 Desc"
DataTables("zzscjjmxb").Load()
DataTables("zzscjjmxb").LoadChildren("zzscjjzb", "主表主键", "_Identify")
Tables("zzscjjzb").Sort = "开工日期,序号 DESC"
End If
另外不建议使用_Identify做表和业务关联，应该使用编号之类的进行关联
加好友 
发短信
Post By：2019/7/13 9:48:00 [显示全部帖子]
