向大家请教一个问题！

Question

各位大虾，在VB里能否实现报表的字段和位置任意移动。即编译好后仍可以调整位置和字段。100

Answer 1

任意移动太大了些，用datareport可以移动，字段也可以设的（好像在Initialize里设，具体的你看看应该就知道的）

Answer 2

可以。用代码自定义报表，用变量记录每一个字段的位置，大小。用Printer对象写打印函数。　　
　　　
很麻烦...       :(

Answer 3

mshflexgrid控件可以拖动列'鼠标拖动换列的位置
Private Sub hflexgrid_DragDrop(Source As VB.Control, X As Single, Y As Single)
  If Hflexgrid.Tag = "" Then Exit Sub
  Hflexgrid.Redraw = False
  Hflexgrid.ColPosition(Val(Hflexgrid.Tag)) = Hflexgrid.MouseCol
  Hflexgrid.Redraw = True
End Sub'鼠标拖动换列的位置
Private Sub Hflexgrid_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Hflexgrid.Tag = ""
    If Hflexgrid.MouseRow <> 0 Then Exit Sub
    Hflexgrid.Tag = str(Hflexgrid.MouseCol)
    Hflexgrid.Drag 1
End Sub