以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  代码垄余，相同的代码。怎么封装  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154357)

--  作者：zaq3574020 --  发布时间：2020/9/12 14:10:00 --  代码垄余，相同的代码。怎么封装 If zdc.Checked Then                                 zd=DataTables("转仓单明细").Find("款号=\'" & drs("款号") & "\' And 花色=\'" & drs("花色") & "\' and 尺码 = \'" & drs("尺码") & "\' and 仓库=\'" & ck & "\'and 调入仓库=\'总部仓库\'","日期")                                 If zd Is Nothing Then                                     If drts.Text.Length>0 Then                                         dr=DataTables("转仓单明细").Find("款号=\'" & drs("款号") & "\' And 花色=\'" & drs("花色") & "\' and 尺码 = \'" & drs("尺码") & "\' and 仓库=\'" & ck & "\'","日期")                                         dc=DataTables("转仓单明细").Find("款号=\'" & drs("款号") & "\' And 花色=\'" & drs("花色") & "\' and 尺码 = \'" & drs("尺码") & "\' and 调出仓库=\'" & ck & "\'","日期")                                         If dc IsNot Nothing And dr IsNot Nothing Then                                             Dim t1 As TimeSpan =  dc("日期") - dr("日期")                                             If t1.TotalDays<drts.Text                                                 If cnt > 0 Then                                                     drs(ck) = 1                                                     cnt = cnt - 1                                                 Else                                                     drs(ck) = Nothing                                                 End If                                             End If                                         End If                                     Else                                         If cnt > 0 Then                                             drs(ck) = 1                                             cnt = cnt - 1                                         Else                                             drs(ck) = Nothing                                         End If                                     End If                                 End If                             End If                         Else                             If drts.Text.Length>0 Then                                 dr=DataTables("转仓单明细").Find("款号=\'" & drs("款号") & "\' And 花色=\'" & drs("花色") & "\' and 尺码 = \'" & drs("尺码") & "\' and 仓库=\'" & ck & "\'","日期")                                 dc=DataTables("转仓单明细").Find("款号=\'" & drs("款号") & "\' And 花色=\'" & drs("花色") & "\' and 尺码 = \'" & drs("尺码") & "\' and 调出仓库=\'" & ck & "\'","日期")                                 If dc IsNot Nothing And dr IsNot Nothing Then                                     Dim t1 As TimeSpan =  dc("日期") - dr("日期")                                     If t1.TotalDays<drts.Text                                         If cnt > 0 Then                                             drs(ck) = 1                                             cnt = cnt - 1                                         Else                                             drs(ck) = Nothing                                         End If                                     End If                                 End If                             Else                                 If cnt > 0 Then                                     drs(ck) = 1                                     cnt = cnt - 1                                 Else                                     drs(ck) = Nothing                                 End If                             End If                         End If

--  作者：有点蓝 --  发布时间：2020/9/12 14:34:00 --   dim cando as boolean = true If zdc.Checked Then       zd=DataTables("转仓单明细").Find("款号=\'" & drs("款号") & "\' And 花色=\'" & drs("花色") & "\' and 尺码 = \'" & drs("尺码") & "\' and 仓库=\'" & ck & "\'and 调入仓库=\'总部仓库\'","日期")        If zd Isnot Nothing Then cando =false end if if cando  then 重复的代码放这里 endif