column-OicAdmin-does-not-belong to table
Expand|Select|Wrap|Line Numbers
- Case "btnSave"
- If RequiredField(dtDate) = False Then Exit Sub
- Mode = Mode.LoadRecord
- If gMobile.Text = "New Record" Then
- dt = ExecuteQuery("select isnull(max(nIdentity), 0) as nIdentity from inventory")
- txtTransNo.Text = Str(Now.Year).Substring(3, 2) & Format(Now.Month, "0#") & "-" & Format(dt.Rows(0).Item(0) + 1, "00000#")
- If Existing("inventory", "cTranNo", Trim(txtTransNo.Text)) = True Then Exit Sub
- drHeader = dtHeader.NewRow
- drHeader.Item("cTranNo") = Trim(txtTransNo.Text)
- drHeader.Item("cRemarks") = Trim(txtRemarks.Text)
- If dtDate.Text = "" Then drHeader.Item("dDate") = DBNull.Value Else drHeader.Item("dDate") = dtDate.Value
- drHeader.Item("nTotal") = lblTotal.Text
- drHeader.Item("nScanned") = lblScanned.Text
- drHeader.Item("nNotScanned") = lblNotScanned.Text
- drHeader.Item("nCorrect") = lblCorrect.Text
- drHeader.Item("nException") = lblException.Text
- drHeader.Item("cPreparedByCode") = usercode
- drHeader.Item("cPreparedByName") = username
- drHeader.Item("cAccOfficerCode") = Trim(txtCustodianCode.Text)
- drHeader.Item("cAccOfficerName") = Trim(txtCustodianName.Text)
- drHeader.Item("cAccOfficerPosition") = Trim(txtPosition.Text)
- drHeader.Item("cEncoder") = Trim(txtEncoder.Text)
- drHeader.Item("cSupplyOfficer") = Trim(txtSupplyOfficer.Text)
- drHeader.Item("cTeamLeader") = Trim(txtTeamLeader.Text)
- drHeader.Item("cObserver") = Trim(txtObserver.Text)
- drHeader.Item("cMis") = Trim(txtMis.Text)
- drHeader.Item("cGenAccounting") = Trim(txtGenAccounting.Text)
- drHeader.Item("cApprovedby") = Trim(txtApprovedby.Text)
- drHeader.Item("cType") = Trim(txtType.Text)
- drHeader.Item("cOicAdmin") = Trim(txOicAdmin.Text)<-------------error here
- dtHeader.Rows.Add(drHeader)
- Call AuditTrail(Trim(txtTransNo.Text), "Created")
- Do While dtAll.DefaultView.Count - 1 >= 0
- dtAll.DefaultView.Item(0).Row("cTranNo") = Trim(txtTransNo.Text)
- Loop
- Do While dtCorrect.DefaultView.Count - 1 >= 0
- dtCorrect.DefaultView.Item(0).Row("cTranNo") = Trim(txtTransNo.Text)
- Loop
- Do While dtException.DefaultView.Count - 1 >= 0
- dtException.DefaultView.Item(0).Row("cTranNo") = Trim(txtTransNo.Text)
- Loop
- Do While dtNotScanned.DefaultView.Count - 1 >= 0
- dtNotScanned.DefaultView.Item(0).Row("cTranNo") = Trim(txtTransNo.Text)
- Loop