DataGrid控件的字段的宽度，如何设置

谁学逆向工程 2009-10-25 10:02:11

有一个字段是姓名，窗体一运行的时候，这个字段太宽了，怎么它小点

...全文

119 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

golden8510 2009-10-25

打赏
举报

[Quote=引用 2 楼 xiaoyuanyuan2009 的回复:]
没反应
[/Quote]
應用DataGrid+ADO



 '//////////////////////////////////////////////////////////////////////////////////////////////////////////

            ' 更新"DataGrid1"數據

            '2009.10.6修改后Code  修改原因:1.減少代碼運行邏輯;2.解決數據庫數據為空報錯的情況;3.數據指向最后;

            Adodc2.CommandType = adCmdText

            Adodc2.RecordSource = "select SN,Name,Skuno,Barcode,InputDateTime,InStorageUser,OutPutDateTime,OutPutState,OutStorageUser,OutPutRemark,Flag from Info order by InputDateTime"

            Adodc2.Refresh

            Set DataGrid1.DataSource = Adodc2

            If Not Adodc2.Recordset.EOF Then                                '2009.10.5增加判斷語句

               Me.Adodc2.Recordset.MoveLast                                '指向Last

            End If

            

            DataGrid1.HeadLines = 2

            

            DataGrid1.Columns(0).Width = 800

            DataGrid1.Columns(0).Caption = " 序列號"

            DataGrid1.Columns(0).Alignment = dbgCenter

            

            DataGrid1.Columns(1).Width = 1400

            DataGrid1.Columns(1).Caption = "    機種"

            DataGrid1.Columns(1).Alignment = dbgCenter

            

            DataGrid1.Columns(2).Width = 1300

            DataGrid1.Columns(2).Caption = "    料號"

            DataGrid1.Columns(2).Alignment = dbgCenter

            

            DataGrid1.Columns(3).Width = 1700

            DataGrid1.Columns(3).Caption = "      條碼"

            DataGrid1.Columns(3).Alignment = dbgCenter

            

            DataGrid1.Columns(4).Width = 2000

            DataGrid1.Columns(4).Caption = "    入庫日期/時間"

            DataGrid1.Columns(4).Alignment = dbgCenter

            

            DataGrid1.Columns(5).Width = 1000

            DataGrid1.Columns(5).Caption = " 入庫用戶"

            DataGrid1.Columns(5).Alignment = dbgCenter

            

            DataGrid1.Columns(6).Width = 2000

            DataGrid1.Columns(6).Caption = "    出庫日期/時間"

            DataGrid1.Columns(6).Alignment = dbgCenter

            

            DataGrid1.Columns(7).Width = 1200

            DataGrid1.Columns(7).Caption = "出庫狀態說明"

            DataGrid1.Columns(7).Alignment = dbgCenter

            

            DataGrid1.Columns(8).Width = 1000

            DataGrid1.Columns(8).Caption = " 出庫用戶"

            DataGrid1.Columns(8).Alignment = dbgCenter

            

            DataGrid1.Columns(9).Width = 1000

            DataGrid1.Columns(9).Caption = " 備注信息"

            DataGrid1.Columns(9).Alignment = dbgCenter

            

            DataGrid1.Columns(10).Width = 1000

            DataGrid1.Columns(10).Caption = "狀態標志位"

            DataGrid1.Columns(10).Alignment = dbgCenter