Thinker

Personal e-notepad


    【Z-LAW】-全部过程

    Aueeins
    Aueeins
    水面上的小草

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

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

    Post by Aueeins on 22/09/11, 10:55 am

    做的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
    水面上的小草

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

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

    Post by Aueeins on 23/09/11, 08:53 am

    一步一步修改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 05/06/20, 09:00 pm