Dim s As String s = s & left(e.DataRow("帐号") & " " ,20) s = s & e.DataRow("帐号序号") & Right(" " + Format(e.DataRow("金额"),"0.00"),18) s = s & Right(" " + Format(e.DataRow("金额"),"0.00"),18) s = s & Right(" " & e.DataRow("姓名"),40) s = s & Right(" " + Format(e.DataRow("金额"),"0.00"),18) Output.Show(s)