Thinker

Would you like to react to this message? Create an account in a few clicks or log in to continue.
Thinker

Forum for story


    【Z-LAW】-全部过程

    Aueeins
    Aueeins
    呢喃的歌声


    帖子数 : 205
    积分 : 5229
    威望 : 0
    注册日期 : 2011-09-08
    地点 : SG

    【Z-LAW】-全部过程 Empty 【Z-LAW】-全部过程

    Post by Aueeins 2011-09-22, 5:55 pm

    做的Disbursement Master首先,
    运行发现有错误:提示binding与administrative fee.
    解决办法点在Form Load找错

    <f08Disb.pDataBinding> ObJect referencenot set to an instance of an object
    解决方案:按照VB6原路走,找对table,找f08Disb_Load
    对正确pRowUpdate

    测试过后binding正确.

    *因为Code目前修改为SQLCode
    Aueeins
    Aueeins
    呢喃的歌声


    帖子数 : 205
    积分 : 5229
    威望 : 0
    注册日期 : 2011-09-08
    地点 : SG

    【Z-LAW】-全部过程 Empty Re: 【Z-LAW】-全部过程

    Post by Aueeins 2011-09-23, 3:53 pm

    一步一步修改Binding(Binding真麻烦,先保证第一个正确,按顺序往下走)
    存在的问题
    <z00Connection.getDataSet>Incorrect syntax near the keyword 'and'
    解决方案:首先这是SQL语句错误,用Ctrl+Alt+I immediate查数据-检查

    记录一下CostLedger的textchanged的Code!、这个是根据前面显示后面(后面的txtbox是禁用状态)


    Private Sub txtCostLedger_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCostLedger.TextChanged
    If txtCostLedger.Text = "" Then
    dcLedgerCost.Text = ""
    Else
    dcLedgerCost.Text = cls02COA.COA_LedgerName(txtCostLedger.Text, "")
    End If
    End Sub
    Private Sub txtBillLedger_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBillLedger.TextChanged
    If txtBillLedger.Text = "" Then
    dcLedgerBill.Text = ""
    Else
    dcLedgerBill.Text = cls02COA.COA_LedgerName(txtBillLedger.Text, "")
    End If
    End Sub

      Current date/time is 2024-11-25, 4:34 pm