十年網(wǎng)站開發(fā)經(jīng)驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
這篇文章給大家分享的是有關(guān)數(shù)據(jù)庫中如何實現(xiàn)網(wǎng)格部件判斷字段不能為空的內(nèi)容。小編覺得挺實用的,因此分享給大家做個參考,一起跟隨小編過來看看吧。
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供五峰網(wǎng)站建設(shè)、五峰做網(wǎng)站、五峰網(wǎng)站設(shè)計、五峰網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、五峰企業(yè)網(wǎng)站模板建站服務(wù),十年五峰做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
在最近的開發(fā)中,發(fā)現(xiàn)上一次發(fā)的網(wǎng)格部件判斷字段不能為空的代碼,還存在不足:
如果在保存前將網(wǎng)格中某條數(shù)據(jù)用下面代碼刪除:
if showquestion("確定要刪除焦點行嗎?") then 采購計劃打分詳細.DeleteFocusedRow() end if
那么在執(zhí)行上一貼中代碼時,就會報錯。
改進示例:
'提交單元和數(shù)據(jù)到行
采購計劃打分詳細.PostEditor()
'提交行數(shù)據(jù)到DataTable
采購計劃打分詳細.GridView.UpdateCurrentRow()
'批量添加打分ID
采購計劃打分詳細.SetColumnValue("打分ID",記錄部件1.GetFieldValue("ID"),1)
'BeginTrans()
'這兒操作數(shù)據(jù)庫。
記錄部件1.SaveData()
采購計劃打分詳細.SaveData()
'判斷事務(wù)執(zhí)行結(jié)果
if CommitTrans()=false then
showerror(GetTransMessage())
end if
dim A = 0
dim dt=采購計劃打分詳細.DataTable
'保存前詢問“這些年度采購計劃是否已經(jīng)在會上討論過?”
if ShowQuestion("這些年度采購計劃是否已經(jīng)在會上討論過?") then
for each dr in dt.Rows
if isnull(dr["總分"]) or isnull(dr["審批情況"]) then
A = 1
exit for
end if
next
else
for each dr in dt.Rows
if isnull(dr["總分"]) then
A = 2
exit for
end if
next
end if
if A = 1 then
ShowInformation("請將【審批情況】、【總分】填寫完整")
dim b=采購計劃打分詳細.AddColumnStyleByExpression("審批情況","[審批情況] is null",True)
b.Appearance.ForeColor=Color.FromArgb(-65536)
dim c=采購計劃打分詳細.AddColumnStyleByExpression("總分","[總分] is null",True)
c.Appearance.ForeColor=Color.FromArgb(-65536)
else if A = 2 then
ShowInformation("請將【總分】填寫完整")
dim d=采購計劃打分詳細.AddColumnStyleByExpression("總分","[總分] is null",True)
d.Appearance.ForeColor=Color.FromArgb(-65536)
else
me.Output1 = "Y"
ShowInformation("保存成功")
me.Close()
end if
感謝各位的閱讀!關(guān)于“數(shù)據(jù)庫中如何實現(xiàn)網(wǎng)格部件判斷字段不能為空”這篇文章就分享到這里了,希望以上內(nèi)容可以對大家有一定的幫助,讓大家可以學(xué)到更多知識,如果覺得文章不錯,可以把它分享出去讓更多的人看到吧!