⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmdlcommisiongoods.frm

📁 金算盘软件代码
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
       msgGrid.col = 1               '对第一列进行排序
       msgGrid.ColSel = 1
       msgGrid.Row = 1
       msgGrid.RowSel = 1
       msgGrid.Sort = 6
    End If
    
'End If
Exit Sub
Err:
     ShowMsg Me.hwnd, "筛选操作不成功 ", MB_SYSTEMMODAL + MB_ICONEXCLAMATION, "委托代销调拨"
End Sub
'存盘
Private Sub SaveData(kkk As Integer)        '存盘
Dim i As Integer, j As Integer, temp As Double, strSql As String, dblje As Double, dblsl As Double
Dim l  As Integer, n As Integer, k As Integer, intCount As Integer, dblhl As Double
Dim GoodsID As Long, ActID As Long, isOk As Boolean
'On Error GoTo Err
i = 1
l = intfixl
n = intfixl
'本循环找出本次调拨金额所在的列
GoodsID = 0
If msgGrid.Rows > 1 Then
    msgGrid.col = 6
    msgGrid.ColSel = 6
    msgGrid.Row = 1
    msgGrid.RowSel = 1
    msgGrid.Sort = 3
End If
If inthl < 1 Then
   inthl = 2
End If
'MousePointer = vbHourglass
While (msgGrid.TextMatrix(0, l) <> "调拨金额")
       l = l + 1
Wend
While (msgGrid.TextMatrix(0, n) <> "调拨数量")
       n = n + 1
Wend
    intCount = FrmSubmitAdjustBill.grdCol.Rows
    If FrmSubmitAdjustBill.grdCol.Rows < 2 Then
       FrmSubmitAdjustBill.InsertARow
       'False
       intCount = intCount + 1
    End If
    j = 1
    Do While j < FrmSubmitAdjustBill.grdCol.Rows       '=0为未覆盖标志
       FrmSubmitAdjustBill.grdCol.TextMatrix(j, 43) = "0"
       j = j + 1
    Loop
    j = 1
    While j < msgGrid.Rows
        If (getnumber(j, 2) <> getnumber(j, l) Or getnumber(j, 3) <> getnumber(j, n) Or msgGrid.TextMatrix(j, 1) = "√") Then     '前后有否变化
            k = 1
            Do While k < intCount         '商品是否添加
                  If msgGrid.TextMatrix(j, 10) = FrmSubmitAdjustBill.grdCol.TextMatrix(k, 32) Then    '判断最后一行是否为空行
                     Exit Do
                  End If
                  k = k + 1
            Loop
            If k >= intCount Then
                 If C2Lng(FrmSubmitAdjustBill.grdCol.TextMatrix(FrmSubmitAdjustBill.grdCol.Rows - 1, 32)) <> 0 Then    '判断最后一行是否为空行
                    FrmSubmitAdjustBill.InsertARow
                    'False
                 End If
                 i = FrmSubmitAdjustBill.grdCol.Rows - 1
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 43) = "1"
                 msgGrid.TextMatrix(j, 39) = CStr(i)       '记住写入的行号
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 1) = msgGrid.TextMatrix(j, 24)      '商品名称
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 32) = msgGrid.TextMatrix(j, 10)     '商品ID
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 2) = msgGrid.TextMatrix(j, 25)      '计量单位
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 33) = msgGrid.TextMatrix(j, 11)     '计量单位ID
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 3) = msgGrid.TextMatrix(j, n)       '调出数量
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 4) = msgGrid.TextMatrix(j, 12)      '调出单价
                 If getnumber(j, n) > 0 Then
                    FrmSubmitAdjustBill.grdCol.TextMatrix(i, 5) = Format((getnumber(j, l) / Val(Balance.translate_minsl(msgGrid.TextMatrix(j, n), Val(msgGrid.TextMatrix(j, 9))))) * Val(msgGrid.TextMatrix(j, 9)), FormatString(inthl))  '调出含税单价
                 End If
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 6) = Format(Val(Balance.translate_minsl(msgGrid.TextMatrix(j, n), Val(msgGrid.TextMatrix(j, 9)))) * (getnumber(j, 12) / Val(msgGrid.TextMatrix(j, 9))), FormatString(inthl))  '调出原币金额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 7) = Format(IIf(blnisDirect = True, C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 6)) / (1 + dblRate), C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 6)) * (1 + dblRate)), FormatString(inthl)) '调出本币金额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 8) = msgGrid.TextMatrix(j, 26)       '税率
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 34) = msgGrid.TextMatrix(j, 13)      '税率ID
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 9) = Format((getnumber(j, l) - C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 6))), FormatString(inthl))  '调出原币税额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 10) = Format(IIf(blnisDirect = True, C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 9)) / (1 + dblRate), C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 9)) * (1 + dblRate)), FormatString(inthl)) '调出本币税额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 11) = Format(getnumber(j, l), FormatString(inthl))    '调出原币含税金额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 12) = Format(IIf(blnisDirect = True, C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 11)) / (1 + dblRate), C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 11)) * (1 + dblRate)), FormatString(inthl)) '调出本币金额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 13) = msgGrid.TextMatrix(j, 12)      '调入单价
                 If getnumber(j, n) > 0 Then
                    FrmSubmitAdjustBill.grdCol.TextMatrix(i, 14) = Format(C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 5)), FormatString(inthl))     '调入含税单价
                 End If
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 15) = FrmSubmitAdjustBill.grdCol.TextMatrix(i, 6)         '调入原币金额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 16) = FrmSubmitAdjustBill.grdCol.TextMatrix(i, 7)         '调入本币金额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 17) = Format(C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 9)), FormatString(inthl))  '调入原币税额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 18) = FrmSubmitAdjustBill.grdCol.TextMatrix(i, 10)        '调入本币税额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 19) = FrmSubmitAdjustBill.grdCol.TextMatrix(i, 11)         '调入原币含税金额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 20) = FrmSubmitAdjustBill.grdCol.TextMatrix(i, 12)         '调入本币含税金额
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 21) = msgGrid.TextMatrix(j, 36)      '生产批号
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 22) = msgGrid.TextMatrix(j, 37)      '生产日期
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 23) = msgGrid.TextMatrix(j, 38)      '到期日期
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 24) = msgGrid.TextMatrix(j, 23)      '保值期
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 25) = msgGrid.TextMatrix(j, 29)      '工程名称
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 26) = msgGrid.TextMatrix(j, 30)      '自定义项目1
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 27) = msgGrid.TextMatrix(j, 31)      '自定义项目2
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 28) = msgGrid.TextMatrix(j, 32)      '自定义项目3
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 29) = msgGrid.TextMatrix(j, 33)      '自定义项目4
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 30) = msgGrid.TextMatrix(j, 34)      '自定义项目5
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 31) = msgGrid.TextMatrix(j, 35)      '自定义项目6
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 35) = msgGrid.TextMatrix(j, 14)      '工程ID
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 36) = msgGrid.TextMatrix(j, 15)      '自定义项目1ID
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 37) = msgGrid.TextMatrix(j, 16)      '自定义项目2
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 38) = msgGrid.TextMatrix(j, 17)      '自定义项目3
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 39) = msgGrid.TextMatrix(j, 18)      '自定义项目4
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 40) = msgGrid.TextMatrix(j, 19)      '自定义项目5
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 41) = msgGrid.TextMatrix(j, 20)      '自定义项目6
                 FrmSubmitAdjustBill.grdCol.TextMatrix(i, 42) = msgGrid.TextMatrix(j, 9)       '转换因子
                 
             Else
                 msgGrid.TextMatrix(j, 39) = CStr(k)
                 If Trim(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 43)) = "1" Then
                    dblsl = Val(Balance.translate_minsl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 3), getnumber(j, 9))) + Val(Balance.translate_minsl(msgGrid.TextMatrix(j, n), getnumber(j, 9)))
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 3) = Balance.intTodec(dblsl, getnumber(j, 9), True)    '调拨数量
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 6) = Format((C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 6)) + Val(Balance.translate_minsl(msgGrid.TextMatrix(j, n), Val(msgGrid.TextMatrix(j, 9)))) * (getnumber(j, 12) / Val(msgGrid.TextMatrix(j, 9)))), FormatString(inthl)) '调出原币金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 7) = Format(IIf(blnisDirect = True, (C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 7)) + C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 6)) / (1 + dblRate)), (C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 7)) + C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 6)) * (1 + dblRate))), FormatString(inthl)) '调出本币金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9) = Format((C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9)) + getnumber(j, l) - C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 6))), FormatString(inthl)) '调出原币税额     '调入原币税额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 10) = Format(IIf(blnisDirect = True, (C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 10)) + C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9)) / (1 + dblRate)), (C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 10)) + C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9)) * (1 + dblRate))), FormatString(inthl)) '调出本币税额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11) = Format((C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11)) + getnumber(j, l)), FormatString(inthl))  '调出原币含税金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 12) = Format(IIf(blnisDirect = True, (C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 12)) + C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11)) / (1 + dblRate)), (C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 12)) + C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11)) * (1 + dblRate))), FormatString(inthl)) '调出本币金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 19) = FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11)         '调入原币含税金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 15) = Format((C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 15)) + C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11)) - C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9))), FormatString(inthl))     '调入原币金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 16) = FrmSubmitAdjustBill.grdCol.TextMatrix(k, 7)         '调入本币金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 17) = FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9)       '调入原币税额
                 Else
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 3) = msgGrid.TextMatrix(j, n)
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 6) = Format(Val(Balance.translate_minsl(msgGrid.TextMatrix(j, n), Val(msgGrid.TextMatrix(j, 9)))) * (getnumber(j, 12) / Val(msgGrid.TextMatrix(j, 9))), FormatString(inthl))  '调出原币金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 7) = Format(IIf(blnisDirect = True, C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 6)) / (1 + dblRate), C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 6)) * (1 + dblRate)), FormatString(inthl)) '调出本币金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9) = Format((getnumber(j, l) - C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(i, 6))), FormatString(inthl))  '调出原币税额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 10) = Format(IIf(blnisDirect = True, C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9)) / (1 + dblRate), C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9)) * (1 + dblRate)), FormatString(inthl)) '调出本币税额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11) = Format(getnumber(j, l), FormatString(inthl))    '调出原币含税金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 12) = Format(IIf(blnisDirect = True, C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11)) / (1 + dblRate), C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11)) * (1 + dblRate)), FormatString(inthl)) '调出本币金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 15) = Format(C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11)) - C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9)), FormatString(inthl))       '调入原币含税金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 16) = FrmSubmitAdjustBill.grdCol.TextMatrix(k, 7)         '调入本币金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 17) = FrmSubmitAdjustBill.grdCol.TextMatrix(k, 9)     '调出原币税额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 19) = FrmSubmitAdjustBill.grdCol.TextMatrix(k, 11)         '调入原币含税金额
                    FrmSubmitAdjustBill.grdCol.TextMatrix(k, 43) = "1"                  '=1为已覆盖标志
                 End If
             End If
        End If
        j = j + 1
    Wend
    j = 1
    Do While j < FrmSubmitAdjustBill.grdCol.Rows       '=0为未覆盖标志
       If C2Dbl(FrmSubmitAdjustBill.grdCol.TextMatrix(j, 11)) = 0 Then    '原币含税金额
'          FrmSubmitAdjustBill.blnDeleteARow j
       End If
       j = j + 1
    Loop

    isOk = FrmSubmitAdjustBill.SaveBill
    If isOk = True Then
        i = 1
        While i < msgGrid.Rows
              If (getnumber(i, 2) <> getnumber(i, l) Or getnumber(i, 3) <> getnumber(i, n)) Then     '前后有否变化
                GoodsID = getnumber(i, 0)
                ActID = CLng(IIf(Len(Trim(FrmSubmitAdjustBill.grdCol.TextMatrix(getnumber(i, 39), 0))) = 0, "0", FrmSubmitAdjustBill.grdCol.TextMatrix(getnumber(i, 39), 0)))
                dblsl = Balance.translate_minsl(msgGrid.TextMatrix(i, n), getnumber(i, 9))
                dblhl = Balance.translate_minsl(msgGrid.TextMatrix(i, 3), getnumber(i, 9))
                dblje = getnumber(i, l)
                If (getnumber(i, 2) = 0) And (dblje <> 0 Or dblsl <> 0) Then       '新增情况
                    strSql = "Insert Into LendToSale (lngLendActivityDetailID,lngSaleActivityDetailID,dblQuantity,dblCurrAmount) " _
                           & "Values ( " & GoodsID & "," & ActID & "," & dblsl & "," & dblje & " );"
                    isOk = gclsBase.ExecSQL(strSql)
                    strSql = "Update ItemActivityDetail Set dblSettlementQuantity=dblSettlementQuantity + " & dblsl & " - " & dblhl & ", " _
                            & "dblCurrSettlementAmount = dblCurrSettlementAmount + " & dblje & " - " & getnumber(i, 2) & " Where lngActivityDetailID=" & GoodsID & ""
                    isOk = gclsBase.ExecSQL(strSql)
                 Else        '更新情况
                    strSql = "Update LendToSale Set dblQuantity = " & dblsl & ",dblAmount = " & dblje & " Where lngLendActivityDetailID =" & GoodsID & " And lngSaleActivityDetailID =" & ActID & ""
                    isOk = gclsBase.ExecSQL(strSql)
                    strSql = "Update ItemActivityDetail Set dblSettlementQuantity=dblSettlementQuantity + " & dblsl & " - " & dblhl & ", " _
                            & "dblCurrSettlementAmount = dblCurrSettlementAmount + " & dblje & " - " & getnumber(i, 2) & " Where lngActivityDetailID=" & GoodsID & ""
                    isOk = gclsBase.ExecSQL(strSql)
                End If
              End If
              i = i + 1
        Wend
        strSql = "Delete *  From LendToSale Where dblQuantity=0 Or dblCurrAmount=0;"
        isOk = gclsBase.ExecSQL(strSql)
   End If
'MousePointer = vbDefault
If kkk = 1 Then
   Unload Me
End If
'Exit Sub
'Err:
'    MousePointer = vbDefault
'    ShowMsg Me.hwnd, "商品调拨存盘失败  ", MB_SYSTEMMODAL + MB_ICONEXCLAMATION, "商品调拨存盘"
End Sub
'关联


'重定窗体中各控件的位置、大小
Private Sub Form_Resize()
     If Me.WindowState = 1 Then
        Exit Sub
     End If

    If mblnFormNoRezise Then Exit Sub
    On Error Resume Next
    If Me.Height < intFormHeight Then Me.Height = intFormHeight
    If Me.Width < intFormWidth Then Me.Width = intFormWidth
    RedrawForm
End Sub
Private Sub RedrawForm()
    '重画MS FlexGrid 控件
    Dim leftx As Integer
    On Error Resume Next
    With msgGrid
        .Width = Me.ScaleWidth - DlListFormLeft - DlListFormRight * 2 - DlFormButtonWidth
        
        .Height = Me.ScaleHeight - DlListUpAreaHeight - DlListDownAreaHeight - DlListFormBottom
    End With
    
    '重画其余控件
    leftx = Me.ScaleLeft + Me.ScaleWidth - DlFormButtonWidth - DlListFormRight + 18
    Cmdall(4).Left = leftx
    Cmdall(7).Left = leftx
    Cmdall(1).Left = leftx
    Cmdall(2).Left = leftx
    Cmdall(3).Left = leftx
'    Cmdall(4).Left = leftx
    Cmdall(5).Left = leftx
    Cmdall(6).Left = leftx
    
    Lbb(1).top = 120
    Cmdall(7).top = Me.ScaleTop + Lbb(1).Height + Lbb(1).top
    Cmdall(1).top = Cmdall(7).top + 9 + DlFormButtonHeight
    Cmdall(2).top = Cmdall(1).top + 133 + DlFormButtonHeight
    Cmdall(3).top = Cmdall(2).top + 9 + DlFormButtonHeight
    'Cmdall(4).top = Cmdall(3).top + 9 + DlFormButtonHeight
    'Cmdall(5).top = Cmdall(4).top + 133 +DlFormButtonHeight
    Cmdall(5).top = Cmdall(3).top + 133 + DlFormButtonHeight
    Cmdall(6).top = Cmdall(5).top + 9 + DlFormButtonHeight
    
    Label1(0).top = 120
    lbdw.top = 120
    Label1(0).Left = msgGrid.Left
    lbdw.Left = msgGrid.Left + 600
    lbdw.Width = msgGrid.Width / 2
'
    Lbb(1).top = 120
    Lbb(0).top = 120
    Lbb(1).Width = msgGrid.Width / 7
    Lbb(1).Left = msgGrid.Width - Lbb(1).Width
    Lbb(0).Left = Lbb(1).Left - Lbb(0).Width
    mclsGrid.TotalRowAdjust
    Refresh
End Sub
'Flexgrid显示栏目设置
Private Sub setColumn()
Dim i As Integer
'On Error GoTo Err
    i = 1
    strWorkID = ""
    Do While i < msgGrid.Rows
       If msgGrid.TextMatrix(i, 1) = "√" Then
          If Len(strWorkID) > 0 Then
              strWorkID = strWorkID & "," & CStr(getnumber(i, 0))
          Else
              strWorkID = CStr(getnumber(i, 0))
          End If
       End If
       i = i + 1
    Loop
    strWorkID = "( " & strWorkID & " )"
    If msgGrid.Rows > 1 Then
       If ShowMsg(Me.hwnd, "栏目设置后，你刚刚做的结算将被取消，需要先存盘吗", MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_SYSTEMMODAL, "委托代销调拨") = IDYES Then
          SaveData (0)
       End If
    End If
    isinit = True
    If msgGrid.Rows > 1 Then
       mclsGrid.GridToListSet
       mclsGrid.ListSet.SaveList
    End If
    If mclsGrid.ListSet.ShowListSet(mclsGrid.ListSet.ViewId) Then
        GetList
        mclsGrid.ListSetToGrid
        mclsGrid.SetupStyle
    End If
    If msgGrid.Rows > 1 Then
       msgGrid.col = 1               '对第一列进行排序
       msgGrid.ColSel = 1
       msgGrid.Row = 1
       msgGrid.RowSel = 1
       msgGrid.Sort = 6
    End If
    
'Exit Sub
'Err:
'    ShowMsg Me.hwnd, "栏目设置操作不成功 ", MB_SYSTEMMODAL + MB_ICONEXCLAMATION, "栏目设置"

End Sub
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -