简单问题，字段为空的提示（本人在线给分，从不欠分！才学PB）

[superqing]

在一个单行数据录入窗口，某些字段不能为空，如果用户不录入，那么给出一个提示，比如“编号不能为空！”，提示要具体到当前行某一列，比如“编号不能为空！”，“名称不能为空！”，提示对话框的标题是订制的，比如：“系统提示！”，大家是怎么解决的呢？有没有简单又好的方法？我才学PB。

[qqqdong]

在保存前自己进行判断

[bomber2001]

itemerror()
return 3
试一试

[superqing]

给点例子，谢了。

[iwithyou]

li_i=dw_1.getrow()
ls_bh1=dw_1.getitemstring(li_i,"列")
if isnull(ls_bh1) or ls_bh1="" then
dw_1.setcolumn("列")
return
end if

[licena]

Long ll_cnt,i,ll_len,ll_grade
String ls_code,ls_name,ls_dept_code,ls_dept_name,ls_plu_unit

dw_1.AcceptText()

ll_cnt = dw_1.RowCount()

FOR i = 1 TO ll_cnt
ls_code = dw_1.GetItemString(i,'plu_code')
ls_name = dw_1.GetItemString(i,'plu_name')
ls_dept_code = dw_1.GetItemString(i,'dept_code')
ls_dept_name = dw_1.GetItemString(i,'dept_name')
ls_plu_unit = dw_1.GetItemString(i,'plu_unit')
IF Trim(ls_code) = '' OR IsNull(ls_code) THEN
Messagebox('提示信息','编号不能为空！')
dw_1.SetRow(i)
dw_1.ScrollToRow(i)
dw_1.SetColumn('plu_code')
dw_1.SetFocus()
RETURN
END IF
IF Trim(ls_name) = '' OR IsNull(ls_name) THEN
Messagebox('提示信息','名称不能为空！')
dw_1.SetRow(i)
dw_1.ScrollToRow(i)
dw_1.SetColumn('plu_name')
dw_1.SetFocus()
RETURN
END IF

IF Trim(ls_plu_unit) = '' OR IsNull(ls_plu_unit) THEN
Messagebox('提示信息','计量单位不能为空！')
dw_1.SetRow(i)
dw_1.ScrollToRow(i)
dw_1.SetColumn('plu_unit')
dw_1.SetFocus()
RETURN
END IF

IF Trim(ls_dept_code) ='' OR IsNull(ls_dept_name) OR Trim(ls_dept_name) = '' THEN
Messagebox('提示信息','部门不能为空！')
dw_1.SetRow(i)
dw_1.ScrollToRow(i)
dw_1.SetColumn('dept_code')
dw_1.SetFocus()
RETURN
END IF
NEXT

IF dw_1.Update() = 1 THEN
COMMIT;
MessageBox('提示信息','保存成功！')
ELSE
ROLLBACK;
END IF

[licena]

或录入时在itemchanged事件中判断

IF this.GetColumnName() = 'plu_name' THEN
if data <> "" then
/*
.........
*/
end if
END IF