datagrid与adodc捆绑时,datagrid的列是直接读出的是数据库中值,但是很多时候数据库是保存为数字(如性别保存为0.1),但是列表显示时要显示男女,我已经做了函数,但是引用不出现,请高手指教,不胜感激!
我的写法如下:
Private Sub Form_Load()Adodc1.ConnectionString =A
Adodc1.RecordSource = B
Adodc1.Refresh
DataGrid1.Columns.Remove (0)
DataGrid1.Columns.Add(0).Caption = "登记类型"
'fucjhdj为一个函数
DataGrid1.Columns(0).DataField = fucjhdj(Adodc1.Recordset.Fields("MR_TYPE"))
Adodc1.Refresh
End Sub
这样写了,这个登记类型就是读不出来,我用msgbox fucjhdj(Adodc1.Recordset.Fields("MR_TYPE"))试了一下,函数没任何问题.
我的写法如下:
Private Sub Form_Load()Adodc1.ConnectionString =A
Adodc1.RecordSource = B
Adodc1.Refresh
DataGrid1.Columns.Remove (0)
DataGrid1.Columns.Add(0).Caption = "登记类型"
'fucjhdj为一个函数
DataGrid1.Columns(0).DataField = fucjhdj(Adodc1.Recordset.Fields("MR_TYPE"))
Adodc1.Refresh
End Sub
这样写了,这个登记类型就是读不出来,我用msgbox fucjhdj(Adodc1.Recordset.Fields("MR_TYPE"))试了一下,函数没任何问题.
解决方案 »
- 是使用MSWinsock.Winsock的话,工程中要引用哪一个呀?
- Crystal report A5 横向 print VB+SQL20000
- 【绿豆结婚】散分恭喜!!!
- 关于自定义坐标系问题
- 求教如何把下面代码执行后取得的数据写入一个(vvv as string)vvv变量里,谢谢!!!
- 如何将表格中的已有数据删为空?总是提示数据类型不正确,怎么办呢?
- vb做个WH_GETMESSAGE消息钩子 有例子么?给个例子~~~~~~~~~~~~~~
- 请教关于换肤技术
- 字符串处理!!!!有没有高手!!进来试试!!!!!!
- vb翻牌记忆游戏设计
- 在线问图片框可用于播放动态图形如AVI动画、Mov动画,以及各种VCD节目吗?如何用?!!!!
- 运行时错误 '40006' 高分求解!
select case MR_TYPE when 1 then 男 when 0 then 女 end as MR_TYPE from table
access 用iif,
select iif(MR_TYPE = 1, 男, 女) as MR_TYPE from table
其他数据库就不知道了.