您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

请问：如何调用此函数【新手提问】

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请问：如何调用此函数【新手提问】

发表于：2008-02-20 15:23:05 楼主

有个msflexgrid控件，由于数据库字段太长被挡住了一部分，上网找到了可以自动调整的函数，请问该如何调用呢？谢谢！！
是在from_load中么？已有msflexgrid控件名称为grddr1

public sub adjustcolwidth（frmcur as form, gridcur as object, optional bnullrow as boolean = true, optional dblincwidth as double = 0)
'--------------------------------------------------------------------
'功能:自动调整grid各列列宽为最合适的宽度
'参数:[frmcur]........................................当前工作窗体
' [gridcur]......................................当前要调整的grid
'--------------------------------------------------------------------
dim i, j as integer
dim dblwidth as double
with gridcur
for i = 0 to .cols - 1
dblwidth = 0
if .colwidth（i) <> 0 then
for j = 0 to .rows - 1
if frmcur.textwidth（.textmatrix（j, i)) > dblwidth then
dblwidth = frmcur.textwidth（.textmatrix（j, i))
end if
next
.colwidth（i) = dblwidth + dblincwidth + 100
end if
next
end with

end sub

发表于：2008-02-20 16:55:231楼得分:0

在数据绑定之后调即可.

发表于：2008-02-22 16:29:332楼得分:0

在显示完数据之后

发表于：2008-02-24 21:08:403楼得分:0

将这段代码复制到flexgrid所在的form或一个模块中。在flexgrid显示完数据后，在flexgrid所在的form中加入以下语句：adjustcolwidth me, grddr1

发表于：2008-02-24 21:40:094楼得分:0

顶楼上的

发表于：2008-02-26 17:14:225楼得分:0

数据绑定之后

下一篇：连接数据库出现了问题了，跪求各位高手，急死了
上一篇：请教一个简单的数据库应用问题